home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib13.dsk / NIBBLE INFERNO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  6KB  |  115 lines
  1. 10  REM ***********************
  2. 11  REM *    NIBBLE INFERNO   *
  3. 12  REM * BY BILL FORTENBERRY *
  4. 13  REM * COPYRIGHT (C)  1983 *
  5. 14  REM * BY MICROSPARC, INC. *
  6. 15  REM * LINCOLN, MA.  01773 *
  7. 16  REM ***********************
  8. 100  TEXT : HOME : VTAB 12: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC **"
  9. 110  HIMEM: 8191
  10. 120  PRINT  CHR$(4);"BLOAD INFERNO SHAPES"
  11. 125  PRINT  CHR$(4);"BLOAD INFERNO OBJ"
  12. 130  HGR : GR : HGR2 
  13. 140  SPEED= 255: TEXT : HOME : INVERSE : FOR I = 23 TO 1  STEP  -1: VTAB I: PRINT "                                        ": NEXT : REM  40 SPACES
  14. 150  VTAB 2: PRINT "              ";: FLASH : PRINT "NIBBLE INFERNO": INVERSE : REM  14 SPACES IN QUOTES
  15. 160  PRINT : PRINT : PRINT "    YOU ARE THE FIREMEN AT THE BOTTOM": PRINT "OF THE BUILDING CATCHING THE BABIES": PRINT "THAT ARE JUMPING OUT OF THE BURNING": PRINT "ORPHANAGE."
  16. 170  PRINT : PRINT "     YOUR POSITION IS CONTROLLED BY": PRINT "THE 3 KEYS SHOWN BELOW."
  17. 180  PRINT : PRINT "     THE GAME CONTINUES UNTIL YOU": PRINT "DROP THREE TOTS ON THE GROUND.....": PRINT "SENDING THEM TO BABY HEAVEN."
  18. 190  PRINT : PRINT "     HERE ARE THE CONTROLS": PRINT "   LEFT       MIDDLE       RIGHT            ,           .            /"
  19. 200  POKE 232,0: POKE 233,96
  20. 210  ROT= 0: SCALE= 1
  21. 220  REM  SET PAGE POINTER & DRAW
  22. 230  POKE 230,64: GOSUB 410
  23. 240  POKE 230,32: GOSUB 900
  24. 250  PRINT : PRINT "         ";: NORMAL : PRINT "PRESS ANY KEY TO PLAY": POKE  -16368,0: REM  9 SPACES IN QUOTES
  25. 260  IF  PEEK( -16384) <128  THEN 260
  26. 270  POKE 786, INT( RND(0) *40) +160: REM  PASS RND NUM TO GAME TO AVOID PATTERNS
  27. 280  CALL 25232: REM  THE GAME!!!
  28. 290  FOR I = 1 TO 50:S = ( PEEK( -16336) - PEEK( -16336)) * PEEK( -16336) +( PEEK( -16336) - PEEK( -16336)): NEXT 
  29. 300  GOSUB 970
  30. 310 S =  PEEK(771) + PEEK(772) *256: TEXT : HOME : NORMAL : PRINT "YOU CAUGHT "S" BABIES."
  31. 320  POKE  -16368,0
  32. 330  PRINT : PRINT : PRINT "WILL YOU PLAY AGAIN (Y/N)?  ";: GET A$: PRINT A$
  33. 340  IF A$ = "Y"  THEN 250
  34. 350  IF A$ < >"N"  THEN 310
  35. 360  REM  END OF GAME
  36. 370  HOME : POKE  -16304,0: POKE  -16301,0: VTAB 22: HTAB 17: PRINT "BYE!!!"
  37. 380  PRINT "]";: GET A$: TEXT : HOME 
  38. 390  END 
  39. 400  REM  DRAW THE PLAYING BOARD
  40. 410  HCOLOR= 3
  41. 420  REM  DRAW BUILDING
  42. 430  FOR I = 0 TO 24: HPLOT I,16 TO I,20: NEXT 
  43. 440  FOR I = 0 TO 24: HPLOT I,180 TO I,190: NEXT 
  44. 450  HCOLOR= 5
  45. 460  FOR I = 0 TO 20: HPLOT I,21 TO I,179: NEXT 
  46. 470  HCOLOR= 4
  47. 480  FOR I = 24 TO 179  STEP 4: HPLOT 0,I TO 20,I: NEXT 
  48. 490  FOR I = 21 TO 174  STEP 8: HPLOT 8,I TO 8,I +3: HPLOT 7,I TO 7,I +3: NEXT 
  49. 500  FOR I = 24 TO 183  STEP 8: HPLOT 13,I TO 13,I +3: HPLOT 14,I TO 14,I +3: NEXT 
  50. 510  FOR I = 28 TO 50: HPLOT 16,I TO 22,I: NEXT 
  51. 520  HCOLOR= 3: HPLOT 16,51 TO 22,51 TO 22,52 TO 15,52
  52. 530  HCOLOR= 5: DRAW 5 AT 29,16
  53. 540  REM  DRAW AMBULANCE
  54. 550  HCOLOR= 6: FOR I = 150 TO 180: HPLOT 224,I TO 270,I: NEXT 
  55. 560  FOR I = 265 TO 277: HPLOT I,170 TO I,180: NEXT 
  56. 570  HCOLOR= 5: FOR I = 234 TO 256: HPLOT I,162 TO I,168: NEXT 
  57. 580  FOR I = 154 TO 176: HPLOT 242,I TO 248,I: NEXT 
  58. 590  HCOLOR= 7: HPLOT 278,168 TO 278,180 TO 279,180 TO 279,168: HPLOT 264,149 TO 264,144 TO 268,144 TO 268,149
  59. 600  HPLOT 262,148 TO 270,148 TO 270,149 TO 262,149
  60. 610  HCOLOR= 0: FOR I = 155 TO 168: HPLOT 268,I TO 268,I: NEXT 
  61. 620  HCOLOR= 5: FOR I = 144 TO 147: HPLOT 262,I TO 268,I: NEXT 
  62. 630  HCOLOR= 3
  63. 640  RESTORE 
  64. 650  FOR Y = 181 TO 183
  65. 660  READ X1,X2,X3,X4
  66. 670  HPLOT X1,Y: HPLOT X2,Y: HPLOT X3,Y: HPLOT X4,Y
  67. 680  NEXT 
  68. 690  HPLOT 228,184 TO 234,184
  69. 700  HPLOT 266,184 TO 272,184
  70. 710  DATA  226,236,264,274,226,236,264,274,227,235,265,273
  71. 720  HCOLOR= 3
  72. 730  REM  THE HIRES TITLE
  73. 740  HPLOT 104,28 TO 104,40 TO 105,40 TO 105,28 TO 112,40: HPLOT 112,40 TO 112,28 TO 113,28 TO 113,40
  74. 750  HPLOT 116,28 TO 125,28: HPLOT 116,40 TO 125,40: HPLOT 120,28 TO 120,40 TO 121,40 TO 121,28
  75. 760  HPLOT 128,28 TO 128,40 TO 129,40 TO 129,28 TO 136,28 TO 136,34 TO 137,34 TO 137,28: HPLOT 128,34 TO 136,34: HPLOT 128,40 TO 137,40 TO 137,34 TO 136,34 TO 136,40
  76. 770  HPLOT 140,28 TO 140,40 TO 141,40 TO 141,28 TO 148,28 TO 148,34 TO 149,34 TO 149,28: HPLOT 140,34 TO 148,34: HPLOT 140,40 TO 149,40 TO 149,34 TO 148,34 TO 148,40
  77. 780  HPLOT 152,40 TO 152,28 TO 153,28 TO 153,40 TO 160,40
  78. 790  HPLOT 164,28 TO 164,40 TO 165,40 TO 165,28 TO 172,28: HPLOT 164,34 TO 170,34: HPLOT 164,40 TO 172,40
  79. 800  HPLOT 192,40 TO 192,28 TO 193,28 TO 193,40: HPLOT 188,28 TO 196,28: HPLOT 188,40 TO 196,40
  80. 810  HPLOT 200,28 TO 200,40 TO 201,40 TO 201,28 TO 208,40: HPLOT 208,40 TO 208,28 TO 209,28 TO 209,40
  81. 820  HPLOT 248,28 TO 248,40 TO 249,40 TO 249,28 TO 256,40: HPLOT 256,40 TO 256,28 TO 257,28 TO 257,40
  82. 830  HPLOT 236,28 TO 236,40 TO 237,40 TO 237,28 TO 244,28 TO 244,34 TO 245,34 TO 245,28: HPLOT 236,34 TO 245,34
  83. 840  HPLOT 240,34 TO 244,40
  84. 850  HPLOT 212,28 TO 212,40 TO 213,40 TO 213,28: HPLOT 212,28 TO 220,28: HPLOT 212,34 TO 218,34
  85. 860  HPLOT 260,28 TO 260,40 TO 261,40 TO 261,28 TO 268,28: HPLOT 268,40 TO 268,28 TO 269,28 TO 269,40 TO 260,40
  86. 870  HPLOT 224,28 TO 224,40 TO 225,40 TO 225,28 TO 232,28: HPLOT 224,34 TO 230,34: HPLOT 224,40 TO 232,40
  87. 880  RETURN 
  88. 890  REM  THE SPLAT
  89. 900  HCOLOR= 3
  90. 910  FOR I = 1 TO 279  STEP 9
  91. 920  HPLOT I,0 TO 279 -I,191: NEXT 
  92. 930  FOR I = 1 TO 191  STEP 9
  93. 940  HPLOT 0,I TO 279,191 -I: NEXT 
  94. 950  RETURN 
  95. 960  REM  ERASE FIGURES LEAVING BOARD
  96. 970  RESTORE : FOR I = 1 TO 12: READ X: NEXT 
  97. 980  POKE 230,64
  98. 990  HCOLOR= 4
  99. 1000  DRAW 4 AT 28,20: DRAW 5 AT 29,16
  100. 1010  HCOLOR= 5: DRAW 5 AT 29,16: HCOLOR= 0
  101. 1020  FOR I = 1 TO 3: READ X: DRAW 2 AT X,70: NEXT 
  102. 1030  DATA  120,160,200
  103. 1040  HCOLOR= 3
  104. 1050  FOR I = 1 TO 3: READ X: DRAW 6 AT X,168: NEXT 
  105. 1060  DATA  157,92,27
  106. 1070  FOR I = 1 TO 24: READ X,Y: HCOLOR= 3: DRAW 1 AT X,Y: HCOLOR= 0: DRAW 1 AT X,Y: NEXT 
  107. 1080  DATA  32,38,34,60,36,80,38,100
  108. 1090  DATA  42,120,46,140,56,156,66,136,74,118
  109. 1100  DATA  78,104,88,90,104,106,108,124,112,140
  110. 1110  DATA  122,156,135,138,140,118,155,104,170,120
  111. 1120  DATA  177,140,188,156,200,138,216,124,239,134
  112. 1130  HCOLOR= 0
  113. 1140  FOR I = 1 TO 3: READ X: DRAW 6 AT X,168: NEXT 
  114. 1150  DATA  157,92,27
  115. 1160  RETURN